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per ial ows 
OWN STORAGE 


Main “ee ne 

Create List of mounted disks 
Scan the disk queues 
Display the disk queue data 
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«TITLE OISKQ isplay Sizes of Disk I/0 Queues 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, " MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS i, “ittle Ye FURNISHED eee A LICENSE AND MAY BE USED AND 7 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bICENSe wy 7 ade THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SO oFT WARE OR oT 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Paansrehetee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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o8 AUTHOR: 

oo Len Kawell 

4 MODIFIED BY: 

00 v03-003 TCMO0002 Trudy C. Matthews 09-Jun-1983 
36 Fix bug in TCM0001. 

00 v03-002 TCM0001 yey Cs C. Matthews 23-May-1983 
00 Set up inputs io Toc CVT_DEVNAM so that node pene is 
00 returned if the device iS on a different node, and just 
Oo ? the device name is returned if the device is local. 
00 4 v03-001 KDM0002 thleen D. Morse 28-Jun-1982 
4 ? Added $DCDEF as SDEVDEF. 

00 44 ;--- 
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MOe~ 900 DEFINI TIONS eae §F:3hi25 UTIL SS. eRe TBI SRG MaRs 1 . 3) 
r¢ -SBTTL DEFINITIONS 
+8 ; PUT SCREEN = MACRO TO FORMAT AND PUT A MESSAGE TO THE TERMINAL SCREEN 
9 cee teeta TEXT, LINE=#1,COL=#1,ARG1,ARG2,ARG3,ARG4,ARG5,ARG6,ARG7,AR 
§ -PSECT 
$$DESC=. 
00 4 eASCID TEXT 
$38 5 RESTORE 
6° 3 -IF NB ARG1 3; IF FORMATTING NEEDED 
8 MOVAB <=-128(SP),SP 3; ALLOCATE FORMAT BUFFER 
00 59 PUSHL SP ; CREATE BUFFER DESCRIPTOR 
Bo5 60 PUSHL #128 Snes 
000 61 MOVL SP,RO ; GET ADDR OF DESCRIPTOR 
0000 6¢ SFAO_S $$OESC,(RO),(RO),- : FORMAT guTPuT 
000 6 ARG1, ARG2,ARG3,ARG4 ARGS ARG6,ARG7, ARG 
000 64 PUSHL COL 3; PUSH COLUMN NUMBER 
000 65 PUSHL tt: ; PUSH LINE NUMBER 
44 06 PUSHAB (SP) 3; SET ADDR OF BUFFER DESC 
000 6 CALLS #3,G*SCRSPUT_SCREEN ; OUTPUT THE FORMATTED TEXT 
4464 o8 MOVAB 128+8(SP),SP 3; DEALLOCATE BUFFER AND DESC 
0000 % IFF 
0000 71 PUSHL COL ; PUSH COLUMN NUMBER 
0000 i USHL LINE ; PUSH LINE NUMBER 
0000 7 PUSHAQ $$DESC 3; SET ADDR OF TEXT DESC 
0000 74 CALLS #3,G*SCRSPUT_SCREEN ; OUTPUT THE TEXT 
0000 75 ENDC 
0000 76 
0000 77 .ENDM = PUT_SCREEN 
0000 78 
44 79 ; 
000 80 ; Equated Symbols 
0000 81; 
0000 36 SAQBDEF ; ACP queue block definitions 
44 § SDCDEF 3; Adapter type definitions 
00 4 SDDBDEF 3; Device data block definitions 
0000 85 SDEVDEF 3; Device type definitions 
44 86 SIRPDEF : 1/0 request packet definitions 
000 87 SUCBDEF 3 Unit control block definition 
O66 89 SVCBDEF 3; Volume control block definitiions 
00000010 0000 Q MAX DISKS = 16 ; Maximum number of disks 
00000010 0000 91 NAME_SIZ = 16 ; Size of disk name buffer 
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v0z-000 OWN’ STORAGE BreEe= 188 bessorco PORINES Bacto vOE-00. ve 
33 -SBTTL OWN STORAGE 
‘ ; Own Storage 
97 NAME_LIST: : Disk device names 
00000100 09 98 on cq sBtKB  MAX_DISKS*NAME_S1Z : 
1 99 UCB_LIST: ; Disk UCB addresses 
00000140 01 199 ~-BLKL MAX_DISKS 
14 101 DISK_COUNT: ; Number of disks 
00000144 129 ! ¢ -BLKL 1 
144 104 WAIT_TIME: ; Wait time between scans 
FEFFFFFF FFFOBDCO 0144 #105 «LONG +-1000*1000,-1 3 (.1 seconds) 
14C 106 HEADER: : Brepley header 
52 20 4F 2F 49 09 99000136 '9105 9009" 14C 107 eASCID " 1/0 Requests Average 1/0 CP Requests'’<10><13>- 
72 65 76 41 09 73 74 73 65 75 71 65 O15A 
20 50 43 41 09 4F ¢f 49 5 67 9] 8196 
OA 73 74 73 $2 165 52 017 ; 
09 67 6E 69 64 of 65 50 ¢ $8 09 OD 0178 108 wi Pending Size Pending’'<10><13> 
50 20 20 09 09 65 7A 69 0 20 20 0187 
OD OA 67 6E 69 64 6E 65 0193 
8 1 
0196 118 : These arrays hold the numbers currently shown in the display 
0198 «#113 ° 
000001DB 0198 114 DSP_IO_REQ: ~-BLKL MAX_DISKS ; Number of disk I/0 requests 
00000218 3108 12 DSP_ACP_REQ: ~-BLKL MAX_DISKS ; Number of ACP requests 
0318 117 ; 
os 18 BH ; These arrays hold the counts from the latest sample 
00000258 0218 120 f0_REQ: .BLKL MAX_DISKS ; Number of disk 1/0 requests 
00000298 0258 121 ACP_REQ: ~BLKL MAX_DISKS ; Number of ACP requests 
000002DB 0298 1 ; 10_REQ_SIZ: -BLKL MAX_DISKS ; Size of the I/0 requests 
00000318 6¢08 ! z I10_REQ_TOT: ~BLKL MAX_DISKS ; Total number of disk requests 
0318 188 
0318 1$6 -DEFAULT DISPLACEMENT ,WORD 
031B 127 
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v04-000 


ow 
00000000 ' GF 


7E FCAD C 
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-SBTTL Main routine 


START: .WORD 0 
SCMKRNL_S CREATE_LIST 
: BLBC RO,EXIT 
: Display disk names 
r PUSHL #1 
PUSHL 


eo 
CALLS #2,G*SCRSERASE_PAGE 
#1,G*SCRSPUT_SCREEN 


10$:  MULL3 #NAME_SIZ,R3 RO 
PUSHAB NAME CIST#ICRO 
MOVZBL NAME-LISTCROJ,-(SP) 


# 
ADDL #4 ,R3,-(SP) 


CALLS #3,G*SCRSPUT SCR EN 
MNEGL #1.0SP_I10_REQCR3 
MNEGL #1,DSP~ACP_REQ(R3) 

AOBLSS DISK_COUNT7RS,10$ 


; Scan queues, wait a while, and do it again 


MAIN_LOOP: 


Sete Se Se Ge Se Ge Ge Ge Se Be Se Se Se 
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; Create List of UCB's 


Set cursor to 1,1 
and 


erase the screen 

Set address of header desc 
brgetay it 

Init disk count 

Compute name List index 
Set address of name string 
Set size of name string 
Set column number 

Set Line number 

Set addr of descriptor 
Display the disk name 
Indicate nothing on screen 


Increment count and loop 


OOOCCOCOCOCOCOCOCCOCOCOCOCOCOCOCOCOCOOCOOOCOOOOOOCOOCOOO 34a 
Oh kk kk kk kt td dd td 
DDRAEDPXP_D Psy £ Be BB EWAN 
MEW SO ODNAUE WN 0 ODNAUES WN OOONAUSWN—On”O 


SCMEXEC_S SCAN_QUEUES ; Scan the queues 
1F 50 BLBC RO,EXIT 
O4AC'CF 00 CALLS #0,DISPLAY_QUEUES ; Display the data 

SSETIMR_S DAYTIM=WAIT_TIME,EFN=#3 ; Set a timer 

9A SWAITFR_S EFN=#3 ; Wait a while 

D1 A3 BRB MAIN_LOOP ; Do it again 
AS EXIT: 
04 AS RET : 
A6 
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DISK Displa 16-SEP-1984 02:21:47 
Ob 500 Create’ l st of mounted disks -SEP-1984 yan aeee 
s } 7 -SBTTL Create List of mounted disks 
\ | § CREATE_LIST: 
003¢ 03A6 170 -WORD  “M<R2,R3,R4,R 
54 00000000'GF 00 O3A8 171 MOVL  G*SCH$GL’ eORrte. R4 
0000000" GF \6 Ni 1% 158 G*SCHSIOLOCKR 
54 00009000" GF D 8 174 MOVAL  G*IOCSGL_DEVLIST.R4 
“BBR em ge ape 
55 046 04 00 O03 158 MOVL DDBS$L_UCB(R4),R 
01 «40 AS 94 c? 128 CHB uCBsB_ eer tas). #DC$_DISK 
2E 33 AS 13 €1 03¢ 180 20$: BBC #DEVSV_MNT,UCBSL_DEVCHAR(RS) , 30$ 
29 38 a3 18 £0 03D2 181 BBS #DEVSV FOR CBSL- DEVCHAR(RS) . 30$ 
ic a a eT Se: 
FCIA CF4O 0 oO9F 3p 184 PUSHAB pe eee Ras 
50 F pO 38 185 OVL ONA Be $12-1,R0 
see ee ae ae 
54 01 CE O3EF 188 MNEGL 
00000000'GF 16 O3F2 189 JSB gfOCScvT _DEVNAM 
08 be i RB Gira 
536 SOO3FE 198 INCL RB 
55 30 aS 00 9490 193 30S: mov CBsL_ LINK(RS) RS 
11 0406 195 BRB 10$ 
FD33 CF 8 DO o¢08 196 40$: MOVL  R3,DISK_COUN 
54 00000000'GF D0 040d 197 MOVL  GSCHSGC cURPcB, R4 
00000000'GF 16 0414 198 JSB G*SCHSIOONL 
50 01 DO O41A 199 MOVL  #1,RO 
04 041D 200 RET 
O41E 201 


AX/VM cro 
UTIL32.$ 


Sete Se Ge Se Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge 
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Get current PCB address 
Lock the I/0 database for read acc 
Init device count 
Get address of DDB List 
Get address _ next DDB 
If EQL, don 
Get adéress “ot first UCB 
Is device a disk? 
Jf NEQ no 

; Branch if not mounted 
: Branch if mounted foreign 
Save the UCB address 
Compute name index 

Compute name buffer address 
Set buffer size 

Set buffer address 

Save current DDB address 
Get node name if external device 
Get the device name 

Restore DDB address 

Save name size 

Increment number found 

Get address of next UCB 

If NEQ there is one 

Else, try next device 

Save count of disks found 
Get current PCB address 
Unlock 1/0 data base 

Set success 


ei 


FE3C CF43 
04 53 


Display Si 
Scan the ai 
41E 
41E 
OOFC 041 
23 DS 04 
55 FCD9 CF4 dO r 
4 
4 
FDEE CF4 DS 04 
13 64 A 0 E1 04 
HS be Oe 
A 3c 438 
FES6 CF43 = 5 C 43F 
76 ght Be BB eed 
56 66 00 044C 
5 56 «D1 Bees 
3 13° 0452 
14 FDdC2 | Ht ot 
ec as 
FE30 CF43 50 +9 rer 
re 
0460 
0460 
so as HD Bee 
56 610 4g D0 047 
Oe ree OO bare 
57 23 DO 047F 
. Se? aoe beep 
OF 13° 04 
14 FOCF crag tH 480 
ror cre OF Beet 
496 
FD8O CF43 C 96 
so” Oh B5 Baas 
A 
4A9 
FF76 31 car 
AC 
AC 
AC 
003C 3 
00000200 8F C2 Qé4A 
OD cas 
00000200 : DD 8 
—E oD BD 


D 
es of Disk 1/0 Queues 
sk queues 


3 .SBTTL 
SCAN_QUEUES: 
WORD 


CLRL 


10$: MOVL 


30$: 


dos: 


50$: MOVL 


60$: 


70$: 

- SBTTL 

DISPLAY_QUEUES: 
- WORD 


16-SEP-1984 
873 b-19 4 


Scan the disk queues 
“MCR2,R3,R4,R5,R6,R7> 
UCB_LISTCR3],R5 


04:86:49 


UCBS$L_IRP(RS) ,RO 
IRP$W-BCNT (ROS Ro 
RO JO-REG S1ZER3 
ucB L-1OQFL CR )R6 
R6,R 

(Rb) ,R6 

it} 
10_REQCR3],#20 
408 

10_REQCR3) 
IRP$W_BCNT(R6) R0 
RO, 10-REA SIZCR3 


; Total-up requests queued to ACP 


¢ 
§ 
9 
: 
15 
i$ 
i8 
9 
5 
$ 
gi 
? ° 
5 
§ 
3 
re 
: 
45 
‘3 
rt 
° 
5 
$ 
§ 


YrSSL_VCB CRS) RG 


VCBSL_AQB(R6) ,R6 
ACP REQCR3) 


R 
(97) ,87 


60 
ACP_REQCR3),#20 
ACP_REQCR3) 

508 


10_REQCR3),1 


-REQ_TOTER33 
DISK_COUNT.R3~70$ 
#1,R0 


10$ 
Display the disk queue data 


“M<CR2,R3,R4,R5> 


tOTTL 


: Total-up number of 1/0 requests queued to driver 


; Get addr of 
; Save a cop 


$ Macro V04-00 Page 


r 
~SRCJDISKQ.MAR; 1 


Init device count 
Get UCB address 


Init 1/0 request count 
If clear device not busy 
Count one for current 1/0 


] 
| 
; Get addr of current 1/0 req | 
Get transfer size 
; Add to size total 
| 
J 


request Listhead 
° 
Get addr of next request 


; End of lis 
; If EQL ye 
; Probably 
; If GEQ 


$s - no more requests 

stuck? ////temp//// 
GEQU yes ////temp/// 

Increment request count 


; Get transfer size 
; Add to size total 


Try next one 


Get address of VCB 

If EQL none - dismounted 

Get address of request queue 
Init ACP request count 

Get address of Listhead 

Get address of next request 
End of List? 

If EQL yes = no more 
Probably stuck? ////temp//// 
If GEQU yee 4/4/44 /temp///// 
Increment ACP request count 
Get next one 


Add 1/0 requests to total 
Increment 


isk count and loop 
Set success 
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vOe=000 , the disk queue data iets $2 :80:25 LOT IUSS. SREIDISKOLAAR: 1 og (6) v0 
00000000 ' GF 9 4BF CALLS 51 O°SERSSET BUFFER 
rt: CLRL ® ; Init disk counter 
rt: Z ; Update number of 1/0 requests for this device, if changed 
55 53 064 4C 5 10$:  ADDL3 #4,R3,R5 ; Compute Line number on screen 
FCC6 CF43) = FDGA CF43 4C CMPL REQCR3) ,DSP_10_REQCR3] ; Anything changed since Last time? 
7¢ 4D 6 L : : If not, don’t bother updating 
D 6 PUT SCREEN <*"!2UL''>,R5,#12,10_REQCR3] ; Write number of I1/0's pending 
54 FDBD CF4 50 $ move 10_REG_SIZER3].R4 : Get 1/0 transfer size total 
FoOC3 wf 5 cei REQ_TOTLR 3 ae 3 
: » no 
54 FDBC cre’ 1A 7 DIVL O_REQ_ TOTCR3),R4 ; Compute average 1/0 size 
35 o 208: PUT_SCREEN <""! SUL'>,R5,#26,R4 ; Write average 1/0 size 
: o? : Update number of ACP requests for this device, if changed 
FC7F CF43 = =FDO3 ors? H 7 Sos: cree Ace REGCAS) .DSP_ACP_REOCRS3 
a5 hi _ PUT SCREEN <""!3UL"'>,R5,#45,ACP_REQCR3] ; Write number of ACP requests 
394 1 ; ALU done with this device, go on to the next one 
rere cree 4a cree DO 0594 : dos MOVL 10 neoreat DSP_10_REQCR3) ; Remember what's on screen 
FC35 CF4 FCB9 CF4 08 59D 4 MOVL ACP_REGCR3) pst ATP_REQCR3) 
0D 53 FB96 CF F 5A6 + AOBLSS DISR_COUNT,R3,39$ ; Increment count and loop 
's DD Bene § PUSHL # 
00000000 ' GF 1 FB aA 4 CALLS #1,G*SCRSPUT_BUFFER 
01 pO 328 8 MOVL #1,R0 ; Set success 
ieee ee 
FFOC 31 0589 91 39$: BRW 10$ ; Branch helper 
058C 3 
058C 9 END START 
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' Psect synopsis H 


¢emrseacesoesce 


"SISEp=198¢ Oa:86:49 EOTILSS. SReSpiSKacnar;1 == P88" 


PSECT name Allocation PSECT No. Attributes 
ABS 88880000 ( g-3 0¢( 0.) NOPIC USR CON 
. BLANK . 00000 f ( 1468.) 01 ¢ 1.) NOPIC USR CON 
S$ 448 ( 0.) § ( §°} NOPIC USR CON 
PURE 0000024 ( 36.) ( -) NOPIC USR- CON 


Phase 


Initialization 3 
Command processing 1 


Pass 304 
Symbol table sort 0 
Pass 2 70 
Symbol table output 7 
Psect synopsis output 
Cross-reference output 

Assembler run totals 55 


The working set Limit was 1500 popes. 
56667 bytes (111 pages) of virtua 


memory were used to buffer 
There were 60 pages of symbol table space allocated to hold 1030 non-local and 17 
$2 source Lines were read in Pass 1, producing 1 


¢eerenenrece RO me me ooo eh 


! Performance indicators H 


Fee eeeeooeeceeeseseeeceeees 


Oooo 
Ooooocoo 


ooo 


0: 


pages of virtual memory were used to define 22 macros. 


Macro Library name 


“$532 SDUAG8: SVS 08421 18.miB: 1 
$255$DU :CSYSLIBJSTARLET.MLB;2 
TOTALS (all Libraries) 


he intermediate cod 
object records in Pass 2. 


oer cescerseeecce ece eee mer eon + 


Macro Library statistics 


: 
Pw ewn ener eoec mm wn mr ener wr cnr wcee + 


i 


1150 GETS were required to define 18 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:DISKQ/0BJ=0BJ$:DISKQ MSRC$:DISKQ/UPDATE=(ENHS:DISKQ) +EXECMLS$/LIB 


mame 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
OSHR EXE RD 


OSHR EXE RD 
OSHR EXE RD 


ecere 
AON 
a 
2222 


WRT NOVEC BYTE 


e. 
local symbols. 


et 


(6) 


